﻿Namespace ReplyMsg
    Public MustInherit Class ReplyBaseMsg
        Inherits BaseMsg

        Public Overridable Function GetXML() As String
            Return "<xml><ToUserName><![CDATA[" + ToUserName + "]]></ToUserName><FromUserName><![CDATA[" + FromUserName + "]]></FromUserName><CreateTime>" + CreateTime + "</CreateTime><MsgType><![CDATA[" + MsgType.ToString() + "]]></MsgType>" + GetXMLPart() + "</xml>"
        End Function

        Protected Overridable Function GetXMLPart() As String
            Return String.Empty
        End Function
    End Class

End Namespace

